home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
mac
/
prime_CD
/
pb
/
SEE_REL.DIR
/
00016_Script_16
< prev
next >
Wrap
Text File
|
1997-07-25
|
2KB
|
54 lines
on show_keys_for current_item
global keyword_shadow_list, reverse_index
put " " into field "keys_hit_list"
put " " into field "keys"
put findpos(reverse_index,current_item) into cur_pos
if (cur_pos > 0) then
put getat(reverse_index,cur_pos) into cur_keywords
put "" into new_key_list
put "" into new_shadow_list
repeat with i = 1 to count(cur_keywords)
put getat(cur_keywords,i) into this_word
-- put line this_word of field "keyword_list" & return after new_key_list
put the name of member this_word of castlib "keyword.cst" & return after new_key_list
-- put this_word & return after new_shadow_list
end repeat
delete char (the number of chars of new_key_list) of new_key_list
-- delete char (the number of chars of new_shadow_list) of new_shadow_list
put new_key_list into field "keys"
-- put new_shadow_list into keyword_shadow_list
set the scrolltop of member "keys" to 1
else
put "No suggestions" into field "keys"
end if
end
on startmovie
global term_to_display, reverse_index
if voidp(reverse_index) then do "set reverse_index = "&field "reverse_index"
put " " into field "keys_hit_list"
put " " into field "keys"
show_keys_for(term_to_display)
set the cursor of sprite 9 to [member "hand",member "hand mask"]
end
on stopmovie
put " " into field "keys_hit_list"
put " " into field "keys"
end